home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / killer_news.dxpack / {0C54E95F-2D2D-4F92-B242-194CFAFBA9C8}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-04-15  |  1KB  |  21 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Sub Object_OnStateChange(state)
  5.     If state = "Command executed" Then
  6.         DesktopX.ScriptObject("k_bbcworldnewsback").selectchannel(Right(Object.Name,1))    
  7.     ElseIf state = "Mouse over" Then
  8.         If DesktopX.ScriptObject("k_bbcworldnewsback").displayzone<>Right(Object.Name,1) Then
  9.             DesktopX.Object("k_bbc_mapover").State=Right(Object.Name,1)    
  10.             Object.TextColor=RGB(83,184,255)
  11.         End If        
  12.     ElseIf state = "Mouse away" Then
  13.         DesktopX.Object("k_bbc_mapover").State="default"
  14.         If DesktopX.ScriptObject("k_bbcworldnewsback").displayzone=Right(Object.Name,1) Then
  15.             Object.TextColor=RGB(83,87,119)
  16.         Else
  17.             Object.TextColor=RGB(128,128,128)
  18.         End If
  19.     End If
  20. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>274</EditorLeft><EditorTop>509</EditorTop><EditorRight>1233</EditorRight><EditorBottom>946</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  21.